home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / circuits / spice2g6.z / spice2g6 / spice / Fortran / limvds.f < prev    next >
Encoding:
Text File  |  1989-02-03  |  471 b   |  21 lines
  1.       subroutine limvds(vnew,vold)
  2.       implicit double precision (a-h,o-z)
  3. c
  4. c     this routine limits the per-iteration change of fet vds.
  5. c
  6.       if (vold.lt.3.5d0) go to 200
  7. c
  8.       if (vnew.le.vold) go to 100
  9.       vnew=dmin1(vnew,3.0d0*vold+2.0d0)
  10.       go to 500
  11.   100 if (vnew.lt.3.5d0) vnew=dmax1(vnew,2.0d0)
  12.       go to 500
  13. c
  14.   200 if (vnew.le.vold) go to 300
  15.       vnew=dmin1(vnew,4.0d0)
  16.       go to 500
  17.   300 vnew=dmax1(vnew,-0.5d0)
  18. c
  19.   500 return
  20.       end
  21.